demand environment?
demand s"

supplied-by
s" MAX-CHAR" environment? 0= [if]
	0 invert pad tuck ! c@
[then] constant MAX-CHAR
